520 OV% = 2:OH% = 29: FOR I = 0 TO 10:C(I) = PEEK(LOC +I): NEXT
530 REM ========
540 REM Get Date
550 REM ========
560 DTE$ = "<NO DATE>": IF DOS THEN 650
570 DTE = PEEK(49040) + PEEK(49041) *256
580 YEAR = INT(DTE/(2 ^9))
590 MNTH = INT((DTE -YEAR *(2 ^9))/(2 ^5))
600 DAY = DTE -YEAR *(2 ^9) -MNTH *(2 ^5)
610 IF YEAR >84 AND YEAR <100 AND MNTH >0 AND MNTH <13 AND DAY >0 AND DAY <32 THEN DTE$ = RIGHT$("0" + STR$(DAY),2) +"-" + MID$ ("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",MNTH *3 -2,3) +"-" + STR$(YEAR)
1330 VTAB 14: HTAB 6: PRINT "USE MOUSE TO MOVE TIME DISPLAY": CALL STARTMOUSE:MFLG = 1
1340 PRINT CHR$(4)"IN#"MSLOT: IF NOT PEEK(DSPTGL) THEN LOC = PEEK(SCREEN) + PEEK(SCREEN +1) *256: FOR I = 0 TO 10:C(I) = PEEK(LOC +I): NEXT : CALL DISPLAY
1350 FOR MOUSE = 0 TO 1
1360 VTAB 4: HTAB 1: INPUT "";X,Y,BTN
1370 CV% = Y/43 +1:CH% = X/35: IF CV% = OV% AND CH% = OH% THEN 1400
1380 CALL DISPLAY: VTAB OV%:LOC = PEEK(40) + PEEK(41) *256 +OH%: FOR I = 0 TO 10: POKE LOC +I,C(I): NEXT : VTAB CV%:LOC = PEEK(40) + PEEK(41) *256 +CH%: FOR I = 0 TO 10:C(I) = PEEK(LOC +I): NEXT :OV% = CV%:OH% = CH%